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AMIGOS DEL 




EDITORIAL 


Tras un breve lapsus de tiempo, debido 
principalmente a las vacaciones, aquí estamos de 
nuevo con nuevos e interesantes programas para 
todos aquellos “AMIGOS DEL MSX”. 

Ante todo, comenzar agradeciendo el cariño con el 
que hemos sido recibidos por todos vosotros, y 
aunque se haya dicho muchas veces esto nos 
obliga a superarnos en ofrecer lo mejor cada mes. 

En este ya nuestro número 2, os ofrecemos una 
serie de programas listados con mayor o menor 
dificultad, en los cuales podéis introducir una serie 
de cambios y mejoras, dejando de esta forma 
campo abierto a vuestra imaginación y vuestros 
conocimientos del ordenador. 

Esperamos que os sean de utilidad e interés y, con 
vuestra voluntad y nuestra pequeña contribución, 
seáis capaces de elaborar poco a poco, programas 
cada vez más complicados. 

Gracias y hasta el próximo mes. 
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EXPLICACION 
DE LOS PROGRfiHflS 


BATALLA 


1Q '################### 

20 7 #### #### 

30 7 ##« BATALLA #### 

40 / #### *### 

50 7 ################### 

60 7 

70 7 LUIS SANGUINO ARIAS 
80 7 

90 7 1986 

100 7 ################### 

110 7 

120 COLOR 6,4,14 

130 SCREEN 3 

140 OREN”GRP:“AS#1 

150 PSET(20,80) ,10: PRINT#1 , "BATALLA" 

160 FOR Y = 1 TO ISOOsNEXT 

170 GLOSE 

180 COLOR 1,1,1 

190 SCREEN 2, 2 :FOR K=1 TO 2 :BÍ= M " :F0RI = 1T0 32 :READ Ai :BÍ=BÍ+CHR$ (VAL < ,, &H"+A$ 
)) :NEXT:SPRITEt- <K)=B*:NEXT 

200 Bi=" " :FOR 1 = 1 TO 3.-READ A:B*=BÍ+CHRÍ<A):NEXT 
210 SPRITEi(3)=B* 

220 LINE(O , 18)-(255,0) ,10,BF 
230 OREN "grp:"AS #1 
240 VDP(1)=226 
250 Z=RND(-TIME) 

260 DIM A(40) 
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270 LINE(0,19)-(255,192),1,BF 
280 N=RND(-TIME) 

290 FOR EX = 1 TO 255 STEP 2 
300 EY=20+1NT(RND(1)*170) 

310 F'SET (EX ,EY) ,10 
320 NEXT 

330 CIROLE(30,40),10,14 
340 RAINT(30,40) ,14 
350 CIRCLE(35,40),10,1 
360 RAINT(35,40) ,1 
370 Z=INT < RND(1)* SO)+180 
380 Z1=0:Z 2=0:V1=0:V2=0 
390 FOR 1=1 TO 15 
400 A(I)=INT(RND(1)*130) 

410 IF ACA(I) THEN A=A(I) 

420 NEXT 

430 VI=150:Z2=25 

440 FOR 1=1 TO 15:CV=(55#A(I))/A:V2=190-CV 

450 LINE(Z1,VI)-(Z2,V2) , 15 

460 V1=V2 : Z1 = Z2 

470 Z2=Z2+Z/10 

480 NEXT 

490 F'AINT (9,191) ,15 

500 FOR 1 = 190 T0130 STEF'-l 

510 IF POINT( 15,1)015 ANDPOINT (31,1) 015 THEN CY=I-16:G0T053O 
520 NEXT 

530 FOR 1 = 190 T0130 STEF'-l 

IF^F'OINT (225,1)015 AND F'OINT (241,1 > 015 THEN FY = I-16 :G0T0560 

560 LINE(13,CY+17)—(30,190),15,BF 
570 LINE(223,FY+17)-(240,190),15,BF 
580 PUTSPRITE1,(15,CY) ,10,1 
590 PUTSPRITE 2,(225,FY) ,2 ,2 
600 PSET (5,5) , 10 :F'RINT#1 , "ANGULO=" 

610 PSET (155,55 ,10 :F'RINT#1 , "FUERZA=" 

620 Q$="1":Bt="2" 

630 PSET(110,5),10:PRINT#1,Q$ 

640 A$=INKEY$ 

650 IF A#•=" + " THEN ANG=ANG+1 rLINE (60,5) - (90,13) , 10 ,BF 
660 IF Aí="~" THEN ANG=ANG-1:LINE (60,5)-(90,13) 10,BF 
670 IF ANGCO THEN ANG=0 
680 IF ANG>90 THEN ANG=90 

690 IF A$=CHR$(13) THEN GOTO 720 
700 PSET(60,5) , 10 : PRINT#1,ANG 
710 GOTO 640 
720 A$=INKEY* 

730 IF A$="+" THEN FU=FU+1:LINE(211,5)-(250,13),10,BF 

740 IF A$="-" THEN FU=FU-1:LINE(211,5)-(250,13) , 10,BF 

750 IF FU<100 THEN FU=100 

760 IF FU>250THEN FU=250 

770 IF A$=CHRt<13) THEN GOTO 800 

780 PSET (211 ,5) , 10:F'RINT#1 ,FU 

790 GOTO 720 

800 F=ANG*.0174533 

810 IF Qí="1" THEN R=CY-4 ELSE R=FY-4 
820 FI=FU*2 
830 E=E+4 

840 IF E>FU THEN M=M+2 
850 Y=INT(SIN(F)*E)-M*3 
860 X=INT(COS(F)*E> 

870 IF Q#="1" THEN BX=X+15:A=3 ELSE A=-3:BX=230-X 
880 BY=R-Y 

890 IF F'OINT (BX+A ,BY+2) =15 THEN B0=1 
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900 IF BX >255 0R BX<0 THEN B0=1 

910 F'UTSPRITE 3 , (BX ,BY) ,6,3 

920 IF B0=1 THEN 960 

930 ON SPRITE GOSUB 1050 

940 SF'RITE ON 

950 GOTO 830 

960 BEEP :BEEF‘ ¡CIRCLE (BX ,BY ) ,5,1 :CIRCLE (BX ,BY) ,3,1 

970 PUTSPRITE 3 , (BX ,209) ,6,3 

980 LINE(60,5)—(90,13),10,BF 

990 LINE(11O,5)-(125,13),10,BF 

1000 LINE(211,5)—(250,13),10,BF 

1010 SWAP Q$,B* 

1020 FU=0:ANG=0:E=0:M=0:B0=0 
1030 GOFO 630 

1060 PLA Y"T138M101CDCC","TI38M101CCED"T11OM101BBC" 

1070 1=1+1:IF I>15 THEN 1140 

1080 IF BX>150 THEN UlO 

1090 F'UTSPRITE 1 , (15,CY) ,1,1 

1100 IF BXC15G THEN 1120 

1110 PUTSPRITE 2,(225 ,FY) ,1,2 

1120 FOR J=1 TO 20:NEXT 

1130 GOTO 1070 

1140 IF BX< 150 THEN F'UTSPRITE1 ,(15 ,CY ), 1 ,1 
1150 IF BX>150 THEN PUTSPRITE 2,(225,FY) ,1,2 
1160 COLOR 1,14 
1170 SCREEN 1 :KEY OFF 

1180 LOCATE 1 ,6iF'RINT"HAS BESTRUIBO LA FORTALEZA " 

1190 LOCATE 10,8 :F'RINT "ENEMIGA" 

1200 LOCATE O , 11 :F'R'I NT "ENHORABUENA JUGABOR NUMERO “ ;Q$ 
1¿10 LOCATE 1 ,15 :F’RINT"OTRA F'ARTIBA SI O NO CS/NI" ' 
1220 A$=INKE Y $ 

1230 IF A*="S" OR A*="s" THEN CLEAR: GOTO 10 
1240 IF A$="n" OR A$="N" THEN ENB 
1250 GOTO 1220 
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HT-40 


10 ' 




20 '#### 
30 '#### 
40 '#### 


HT-40 #### 

#### 


#### 


50 ' 
60 ' 
70 ' 
80 ' 
90 ' 


'################### 


'EUGENIO GARRIDO GOMEZ 


1986 


100 '########$########## 

110 ' 

120 COLOR 3,6,10 

130 SCREEN 3 

140 OREN"GRP:"AS#1 

150 PSET(45,80),6:PRINT#1,"HT-40 

160 FOR Y=1 TO 1500:NEXT 

170 CLOSE 

180 COLOR 1,14 

190 SCREEN 1 

2UU LOCATE 3,10:PRINT"JOTSTICK O CURSORCJ/C)" 
210 X$=INKEY$ 

220 1 = 1 + 1 :IFI>13 THEN 1 = 1 
230 VDP(7)=1 

240 IF X*=".J"OR X$="j" THEN CT=1 :G0T027O 
250 IF Xí="c"OR X$=»C" THEN CT=0:G0T0270 
260 GOTO 210 

270 COLOR 10,4,4:SCREEN2,2 

280 GOSUB 630:X1=141:X2=141:X3=141 

290 TIME=0 

300 ON SPRITE GOSUB 500:SPRITE ON 
310 PUTSPRITE 1,(42,XI), 8, 1 
320 PUTSPRITE 2,<127,X2>, 8, 1 
330 PUTSPRITE 3,<212,X3), 8, 1 
340 SPRITE ON 
350 A=STICK(CT) 

360 IF A=7 AND DI=0 THEN DI=1:T1=1 

370 IF A=1 AND DI=0 THEN DI=1:T2=1 

380 IF A=3 AND DI=0 THEN DI = 1 :T3=1 

390 IF T1=1THEN Xl=Xl-3 

400 IF T2=1THEN X2=X2-3 

410 IF T3=1THEN X3=X3-3 

420 IF X1=<0THEN X1=141:DI=0:T1=0 

430 IF X2=<0THEN X2=141:DI=0:T2=0 

440 IF X3=<0THEN X3=141:DI=0:T3=0 


















450 RUT SPRITE7,(HX,HY),1,3 

460 HX*HX-5:IF HX<=0 THEN HY-INT(RND<1)#125) :HX=255 
470 IF TIME =6000 THEN 590 
480 GOTO 310 

490 PUTSPRITE 2,<127,X2), 8, 1 

500 SPRITE OFF:IF HX>38ANDHX<46THEN X1=141:DI=0:T1=0:F’U=PU+10sGOSUB 580 

510 IF HX>123ANDHX<i32THEN X2=141:DI=0:T2=0:PU=PU+10:GOSUB 580 

520 IF HX>208ANDHX<216THEN X3=141sDI=0:T3=0:PU=PU+10SGÜSÜB580 

530 PUTSPRITE 1,(42,X1), 8, 1 

540 PUTSPRITE 2,(127,X2), 8, 1 

550 PUTSPRITE 3,(212,X3), 8, 1 

560 IF DI=OTHEN HY = INT(RND(1)* 125) sHX=255 

570 SPRITE ON:RETURN 

580 SOUND 6 , &HF : S0UND7 , ?<H7 : S0UND8 , 8<H 10 : SÜUND9 , &H 10 : SGUND10 , &H 10 : SOUND12 , &H40 s SOU 
ND 13 , ?<H0 : RETURN 
590 OPEN"GRP : "AS#1 

600 PSET (80,100) :PRINT#1 , "PUNTOS*" ;F'U 
610 FGR N=1 TO2000 sNEXT N 
620 RUN 

630 FOR K=1 TO 3 :B*="":F0RI=1TO 32 :READ A*sBt*B*+CHR^(VAL<"8cH"+A*))sNEXTsSPRIT 
E* <K)=B*:NEXT 

640 LINE (O,170)-(255,192) ,10, BF 
650 PUTSPRITE 4,(42,157), 1, 2 
660 PUTSPRITE 5,(127,157), 1, 2 
670 PUTSPRITE 6,(212,157), 1, 2 
680 RETURN 

690 DATA 1,1,3,3,3,3,6,A,A,A,E,3,1,3,2,9,0,0,80,80,80,80,C0,A0,A0,A0,E0,80,0,80, 
0,40,0,1 ,1 ,1 ,1 ,1 ,1 ,1 ,3,3,12,BB,BA,92,93,FF,O,O,O,O,O,0,41,41 , AA,9C,88,94,B6,FE, 

B,FF,O,O , O,O,O,FF,2,6,F,13,63,FF,7F,22,91,7F,O,O 
700 DATAO,O,O,F8,0,C3,7,85,FF,FC,80,0,0,CO 



SALVAMENTO 


10 


20 

■ #### 


30 

'**** SALVAMENTO 


40 



50 


60 

/ 


70 

7 LUIS SANGUINO 

ARIAS 
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80 ' 

90 ' 1986 

100 '################### 

110 7 

120 COLOR 15,12,1:KEY OFF 

130 SCREEN 3 

140 OREN"BRP:"ASI 

150 PSET(10,80) ,12:PRINT#1,"SALVAME 1 " 

160 FOR 1=1 TO 1500 
170 NEXT 
180 CLOSE 
190 COLOR 1,4,1 
200 SCREEN 2, 2 
210 OPEN"grp:"ASI 
220 DEFINT X,Y,.J,K 

230 FOR K=1 TO 4 :B*=""sFGRI = lTO 32 sREAD A*:B$=B*+CHR*<VAL("fcH' 

E* (K)=B$:NEXT 

240 AA=1 s BA=2s HU=0:HI=3 

250 GOSUB 460 

260 CIRCLE(227,90),15,15 

270 CI R'CLE (227,90) ,10,15 

280 CIRCLE(227,90),7,15 

290 LINE(O,93)—(255,O),5,BF 

300 FOR ES=0 TO 255 STEP 2 

310 YE=INT(RND(1)*95) 

320 PSET(ES,YE), INT(RND<1)* 14)+1 
330 NEXT 

340 CIRCLE(55,35),15,11 
350 PAINT(50,35),11 
360 CIRCLE(65,35),15,5 
370 PAINT(65,35),5 
380 TIME=0 

390 ON STRIGGOSUB 430 
400 STRIG(CT) ON 
410 TI=TIME/50 
420 GOTO 420 
430 STRIG(CT) OFF 
440 X = X •+• 1 

450 IF X >210 THEN 620 

460 PUTSPRITE 1 , (X,85), 1 ,AA 

470 PUTSPRITE 2 ,(220,80+HU) , 1 ,3 

480 IF RR=Ü THEN RR=1 :RETURN 

490 IF TI>35 THEN 520 

500 SWAP AA ,BA:SWAP HU,HI 

510 GOTO 390 

520 YH=85 

530 CIRCLE(227,90),15,4 

540 CIRCLE(227,90),10,4 

550 CIRCLE(227,90),7,4 

560 LINE(210,70)-(245,93),5,BF 

570 PUTSPRITE 2 ,(220 ,209) , 1 ,3 

580 YH=YH+1:IF YH>192 THEN MU=1:GOTO 620 

590 PUTSPRITE 3 ,(220 , YH) , 1 ,4 

600 FOR 1=1 T025:NEXT 

610 GOTO 580 

620 COLOR 1,14 

630 SCREEN 1 

640 IF MU=1 THEN LOCATE 0,6sPRINT" LO SIENTO 

AHOGADO M 

650 IF MlJ=0 THEN LOCATE 0,6:PRINT" ERES UN HEROE.. „ 

SIEMPRE" 

660 LOCATE 2,10sPRINT"HAS TARDADO " ;TI;"SEGUNDOS" 

670 LOCATE 2,20sPRINT"OTRA PARTIDA SI O NO CS/N3" 


'+A$)) sNEXTsSPRIT 


TU CHICA SE HA 
ELLA TE AMARA 
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680 A$=tINKEY* 

690 I=I+l:IFI 
TOO- VDP (.7) = I 
710 IF A$="S" OR A*="s 


13 THEN 1=0 


THEN OLEAR:GOTO190 
OR A$="N" THEN END 

730 GOTO 680 

740 DATAO ,O,O,0,0,3,E7,9F,8,FO,80,0,0,0,0,0,0,0,8, 
O,0,0 ,0,0,0,0,0,03,27,1F,8,11,26,00,80,0,0,0,0,0,C 
750 DATA 9,5,3,2,04,25,12,9,7,3,3,3,1,0,0,0,20,40 
760 DATA 80,80,46,48,90,20,CO,80,80,80,0,0,0,0,0,1 
2,80,40,80,40,46,88,1O,EO,CO,80,80,00,EO,1O,A,4 







2,E 

,EC 

:d,fc,c 

:,fe,ce 

:c, 

»,£ 

,20,10,10,3 
¡1 ,0,0,0,0, 

.0 ,20 
,0,0, 

5 5 i 

,2,1,47,AB,11,1,3,- 

',8,5 




CUESTA 







10 x 

20 ' #### 

30 ' #**# CUESTA *«* 

40 '#### #### 

50 7 ################### 

60 7 

70 'LUIS SANGUINO ARIAS 





80 ' 
90 ' 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 


1986 

/|\ rp. /JV 7p 7|\ /J\ 7|V Tjv 7|V 7|\ 7|V 7|\ 

COLOR 1,3,10 
SCREEN 3 
OREN“GRP:"AS#1 

PSET (40,80) ,3 :PRINT#1 , "CUESTA" 

FOR Y=1 TO 1500:NEXT 
CLOSE 

COLOR 1,14 
SCREEN 1 

LOCATE 3,10:PRINT“JOTSTICK O CURSOR{J/C)" 
X$~INKEY $ 
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220 1=1+1:IFI>13 THEN 1=1 
230 VDP (7) =1 

240 IF X$="J"0R X$= M j" THEN CT=1:B0T0270 
250 IF X*="c"QR X$="C" THEN CT=0:G0T027O 
260 GOTO 210 

270 COLOR 1,15,8:SCREEN 2,2,1 
280 OREN"GRP:"AS#1 

290 DRAW " C3BM0 ,180R29LJ21E25R19E4U20E12R37E18R15E6U20R16E20U1R16E5U15R11E16U1D1 

300 RAINT (1,191),3 

310 FOR K=1 10 7 :B$=" " :F0RI = 1T0 32 :READ A$ ¡Bt—B^+CHR# (VAL ( M S^H"+AÍ) ) :NEXT :SPRI1 

ET (K)=BÍ:NEXT 


330 GOSUB 750 
340 X=5:Y=164 

350 A=1sB=2:PX=240:PY=-4:E=6:G=7 
360 ON SPRITE GOSUB 590 
370 F'X=F'X—4 sPY=F'Y+4 

380 IF ROI NT (F'X+8 ,PY+26) 03 THEN F'Y=PY+3 

390 IF F'OINT (F'X+8 ,F'Y + 18) =3 THEN PY=PY-3:PX=PX-3 

400 IF F'X<=0 THEN FY=-4:PX=240 

410 IF F=0 THEN PUTSPRITE 1,(X,Y),1,A 

420 IF F=j THEN F'UTSF'RITE 1,(X,Y), 1, C 

430 IF F=2 THEN PUTSPRITE 1,(X,Y), 1, 5 

440 PUTSPRITE 2,(PX,PY), 6, E 

450 GOSUB 490 


460 IF MM=0 THEN SPRITE ON 

470 SWAP E,G 


480 GOTO 370 


490 IF MM=0 THEN S=STICK(CT) 


SOU 11- H=.i i HF.N X=X+2 : Y=Y~2 :SWAP A,B:F=0 
510 IF S=7 THEN X=X-2 : Y = Y+2:SWAP C,D:F=1 
520 IF S=5 THEN F=2 

530 IF POINT (X +12 , Y +16) 03 THEN Y = Y+2 

540 IF F'OINT (X+12 ,Y+14) =3 THEN Y = Y-2 

550 IF Y<=—8' THEN 630 

560 IF X<=0 AND MM=1 THEN MM=C 
570 IF X<=0 THEN X=0 

580 RETURN 

590 SPRITE OFF 

) sGOSUB 750 



600 VI=VI-1 

610 MM=1:S=7:D=3:C=5:PY=209 
620 RETURN 

630 F'U=F'U+100 : BEEF': BEEP : BEEP 

640 LINE (70,180)-<180,192) , 15,BF 

650 PSET (76,182) ,15: F'R I NT# 1 , " F'UNTOS= " ; F'U 

660 GOTO 340 

670 SCREEN 1sKEYOFF 

680 LOCATE 8,10:PRINT"HAS MUERTO" 

690 LOCATE 3,15 :PRINT"TUS PUNTOS HAN SIDO=" ;F'U 

700 LOCATE 1 ,20 : F'R I NT "OTRA PARTIDA SI O NO CS/N1" 
710 X$=INKEYÍ 

720 IF X$="S"OR X$=" s "THEN CLEAR:GOTO 270 
730 IF X$="n"OR X*="N"THEN SCREEN O:END 
740 GOTO 710 

750 LINE(80,O)-(155,10),13,BF 

760 PSET(86,2),3:PRINT#1,"VIDAS=";VI 

770 IF VI=Ü THEN 670 

780 C=3:D=4:F=2 

790 IF BB=0 THEN BB=1 :F=0 

800 RETURN 
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40,40,80 

lC°4 D r TA 1 ’ 3 ’ 7 ’ 3 ’ 1 i 1 ’ F i 1 i 1 >2,4,8,8,18,80,C0,C0,80,0,80,80,80,CO,AO,80,40,2<I 

840 DATA 1 ,3,7,3,1 ,1 ,1 ,1 ,3 ,5,9 ,2,2,2,2,1 ,80 ,C0 ,C0 ,80,0,80,80,80,80 ,C0 ,A0,80,80 . 
O,80,80 

850 DATAO ,0 ,0 ,0,0,0,0 ,0,0,0,0 ,E3,9F ,7 ,EB ,90,0,0 ,0 ,0 ,0 ,0,0,0,0,0 ,C ,CE ,FF ,CE ,44,2 
880 DATAO,1,7,F,F,IB,37,37,6F,6F,37,IB,F,F,1,0,0,80,80,CO,CO,EO,FO,70,B8,D8,F8. 
O,FO,EO,80,0 

870 DATA O , 1 ,F ,F , IB ,37 ,¿>F ,6F ,37,37,1B,F ,F ,7,1 ,0 ,0,80 ,E0 ,F0 ,F0 ,F8 ,D8 ,B8,70 ,F0 ,E( 
CO,80,80,80,O,O 



XR-2000 


10 

'################### 

20 

7 ###* 


#### 

30 

' #### 

XR-2000 

#### 

40 

' #### 



50 


60 

7 



70 

'LUIS 

SANGUINO 

ARIAS 

80 

7 



90 

/ 

1986 



100 ' «•#######«#•###### 

110 ' 

120 COLOR 15,12,1 
130 SCREEN 3 
140 OF’EN " GRP : " AS 1 

150 PSET (25,80) , 12 sPRI NT# 1 , 11 XR-2000" 

160 POR 1=1 TO 1500 
170 NEXT 
180 GLOSE 
190 COLOR 1,7,8 

200 SCREEN 2, 2 sFOR K=1 TO 1 : Bf= " " : FORI = 1 TO 32 s RE AD A$ sBf—B^+CHR^ (VAL ( 

)) sNEXTsSPRITE# (K)=B*:NEXT 

210 OREN"grp:"ASI 

220 CI RCL.E (50,35) ,15,10 
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230 RAINT(50,35),10 

240 LINE < 0,80)-(255,170) ,12,BF 

250 LINE (0,170)—(255,192),4,BF 

260 PSET(75,70) ,7:PRINT#1,"! ! LISTOS !!" 

270 FOR 1 = 1 TO 700 sNEXT 

280 LINE (75,70)-(225,78),7,BF 

290 SOUND 6,15:SOUND 7,7:S0UND S,16:S0UND 9,16:S0UND 10,16:S0UND 11,0 :SOUND 1) 
16:SOUND 13,0 
300 K=127 
310 G=289 

320 ON STRIGGOSUB 570 
330 STRIG(CT) GN 

340 LINE (J , 177)-(J+1O,181) ,10,BF 
350 LINE (K,177)—(K+1O,181),1O,BF 
360 IF X<0 THEN X=0 
370 R=R+.52 
380 T=T+ .47 
390 V=V+.38 
400 IF X >230 THEN 590 
410 IF R>230 THEN PR=1 :GOTO 590 
420 PUTSPRITE 1 ,(X,165), 1, 1 


430 PUTSPRITE 2 
440 PUTSPRITE 3 
450 PUTSPRITE 4 
460 IF B=1 THEN 


, (T , 174) ,3,1 
, (V , 167) , 11,1 
,(R,160),15,1 
550 

470 LINE (J+1O,l77)-(J+20,181),4,BF 

480 LINE (K+10,177)-(K+20,181),4,BF 

490 IF G>255 THEN 520 

500 LINE(G,100)-(G+2,170),15,BF 

510 LINE(G+2,110)~-(G+4,170),12,BF 

520 6-G- .4:IF G<=215 THEN G=215 :GOTO 560 

530 K=K—3:IF K<-10 THEN K=255 

540 J=.J-3: IF JC-10 THEN J=255 

550 GOTO 330 

560 PSET(G+7,103) ,1:PRINT#1,"META" :LINE(238,170)-(242,192) ,14,BF:B=1:GOTO 550 
570 STRIG(CT) OFF:X=X+1rRETURN 

580 DATA0,0,0,1,2,5,B,E,F,5,39,49,9F,85,48,30,10,38,30,00,40,00,34,10,8,8,70,9f 

29,A5,12,C 

590 COLOR 1,14 

600 SCREEN 1 

610 IF F'R= 1 THEN 640 

620 LOCATE 4,7:F'RINT"ENHORABUENA CAMPEON" 

630 IF PR=0 THEN 650 

640 LOCATE 4,6:PRINT"L0 SIENTO HAS PERDIDO" 

650 LOCATE 2,11 : F'R I NT "OTRA PARTIDA SI O NO CS/NI" 

660 AÍ-INKEYf 

670 I = I + J. : IFI > 13 THEN 1=0 

680 VDP(7)=I 

690 IF Af="S" OR Aí="s" THEN CLEAR:GOTO 190 
700 IF A$="n" OR A$="N" THEN END 
710 GOTO 660 
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ATERRIZAJE 


10 '###########«######. 

20 ' #### #### 

30 ' ####ATERRIZAJE ##« 

40 '#### #*## 

50 '#####*####$######## 

60 ' 

70 'EUGENIO GARRIDO GOMEZ 
80 ' 

90 ' 1986 

100 '#############$##•)**# 

110 ' 

120 COLOR 3,6,10 

130 SCREEN 3 

140 OREN"GRP:"AS#1 

150 PSET <10,80) ,6 ;PRINT#1ATERRIZA" 

160 FOR Y=1 TO 1500 sNEXT 
170 CLOSE 
180 COLOR 1,14 
190 SCREEN 1 

200 LOCATE 3,10:PRINT"JOTSTICK O CURSOR!J/CI" 

210 XT=IMKEYí 

220 I = I + l :IFI>13 THEN 1 = 1 

230 VDP(7)=I 

240 IF X$="J"OR Xí=" j" THEN CT=1 ¡GOT0270 
250 IF Xí="c"OR Xf="C" THEN CT=0:G0T0270 
260 GOTO 210 

270 CLSjsKE Y OFF : COLOR 15,1 ,1 : SCREEN 2,2:0F'EN "GRP: "AS #1 • 

280 X=1 

290 H=RND(-TIME) 

300 FOR W=1 TO 260 

310 X=X + 1:IF X>15 THEN X=2 

320 K=INT(RND(1)*192) 

330 PSET(W ,K) , X 
340 NEXT 

350 GOSUB 550:ON SPRITE GOSUB 520.-SPRITE ON :MY=209 :CO=100 :M2=1 
360 L. INE (O , 180) — (CO+1,184) ,1 ,BF :LINE (O , 180) - (CO , 184) ,6,Bf" 

370 PUTSPRITE 1,(NX,NY), 10, 1 
380 F'UTSPRITE 3,( AX + 16,150), 2, 2 
390 FTJTSPRITE 2,< AX,150), 2, 2 
400 PUTSPRITE 4,(MX,MY), 6, 3 
410 AX=AX+3:IF AX=255 THEN AX=0 
420 A=STICK(CT) 

430 IF A=7THEN Ml = l :M2=0 
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440 IF A-3THEN M2=lsMl=0 

450 IF M1=1THEN IF NX>0 THEN NX=NX-3:M2=0 
460 IF M2=lTHEN IF NX<25BTHEN NX=NX+3sMl=0 
470 NY=NY+3 : IF NY>138 THEN NY=0 :G0SUB570 
480 B-STRIG(CT) 

490 IFB--1THEN MX=NX:MY=NY+12:NY=NY-4:C0=C0-1 sLINE (0 ,180) - (C0+1,184) ,1 ,BF: L INE 
,180)-(C0,184) ,6 ,BF:ELSE MY=209 
500 IF C0=<0 THEN540 
510 SPRITE ON:GOTO 370 

520 BEEPsIF NX>AX+3 AND NXCAX+27 AND NY >134THEN NA=NA+1zPLAY "ABABBACAD"sFÜR N=: 
TO 2000 sNEXT N:CO=CO+10 5 PLNPÜ+1 
530 SPRITE*OFFsRETURN 

540 PSET (50,100) :PRINT#1/'ATERRIZASTE ";PU;" VECES"sFOR N=1T04000 sNEXT:RUN 
550 FOR K= I TG 3 :B*="" sFORI=lTü 32 sREAD A¿ sB$=B*+CHR*(VAL() sNEXTsSPR! 
E$ (K)=B$sNEXT 
560 RETURN 

570 SGUND 6 , &HF : S0UND7,&H7 : S0UND8 , ?<H 10 s S0UND9 , 2<H 10 : SOUND10 , &H 10 s SOUND12 , ?<H40 : SC 
ND 13,2/HO 

580 FOR N=1 TO lOsPUTSPRITE 1,(NX,NY),N, 1 sFOR H=1 TO 20.-NEXT H sNEXT N 
590 RETURN 

600 DATA7,9,13,2F,27,13,9,F,D,9,F,9,12,20,70,0,E0,90,C8,F4,E4,C8,90,F0,B0,90,F( 
90,48,4 ,E,O,FF,FF,7F,7E ,5E,4A ,2,2,0,0,0,0,0,0,0,0,FF,FF,FF,F5,D4,90,10,0,0,0,0, 
,0,0 ,0,0,1 ,0,2,4 ,2 ,5,2 ,E ,4,1,0,0,0 ,0,0,0,80,A0 
6iO DATAO,CO,90,50,AO,90,60,80,O,O,O,O,O,O 


SI PREFIERE SUSCRIBIRSE 
POR-TELEFONO... 


\\J#& 
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BOMBEROS 


10 

'################### 

20 

' #### 



30 

7 #### 

BOMBEROS 


40 

' #### 



ÜO 

'################### 

60 

/ 



70 

'LUIS 

SANGUINO 

ARIAS 

80 

/ 



90 

/ 

1986 


100 

•############ 

110 





120 COLOR 1,10,4 

130 SCREEN 3 

140 OREN"GRP:"AS#1 

150 PSET(5,80) ,10:PRINT#1 , "BOMBEROS" 

160 FOR Y=1 TO 1500:NEXT 

170 CLOSE 

180 COLOR 12,14,6 

190 SCREEN 2,2 

200 OF'EN"grp : "ASI 

210 DIM X(3),Y(3) 

220 TIME=0 

230 FOR F=1 TO 3:READ X(F):NEXT 

240 FOR F=1 TO 3:READ Y(F):NEXT 

250 YM=209:X = 100 

260 DATA 168,58,118,4,7,27 

270 FOR K=1 TO 4 :BÍ="":F0RI=1T0 32 :READ 

E$ <K)=B$:NEXT 


280 LINE < O , 170)-<255,192) , 4,BF 

290 LINE(0,175)-(80,183),1,BF 

300 PSET(4,176) ,1:PRINT#1 , "VIDAS=";VI 

310 LINE(0,172)-(255,167),14,BF 

320 LINE(0,167)-(255,110),15,BF 

330 LINE(40,130)-(20,O),12,BF 

340 LINE(20,150)-(40,130) ,12 

350 LINE(20,150)-(20,130),12 

360 PAINT(22,140) ,12 

370 LINE(20,150)-(O , O) , 3 , BF 

380 LINE(7,150)-(O,130),1,BF 

390 LINE(41,146)-(200 ,0) ,7,BF 

400 LINE<241,110)-(200,0) ,5,BF 

410 LINE(241,110)-(200,146) ,5 


Aí :Bt=Bf+CHR$(VAL("? < H"+Af) ) :NEXT:SF'R 
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I 


o 


fe 

fe 

fe 

fe 


420 LINE(200,110)-(200,146) ,5 
430 F'AINT <202,115) ,& 

440 LINE(170,146)-<190,106) ,8,BF 
450 GIRELE(242,153),7,2,,,.5 
460 F'AINT (242,155) ,2 
470 FOR 1 = 1 TG 255 STEF' 30 
480 LINE(I,189)-<I+13,192),11,BF 
490 NEXT 

500 PSET( 173,96) ,7 :F'RINT#1 , "43" 

510 INTERVAL ON 

520 ON INTERVAL=70 GOSUB 730 

530 D=STICK(CT) 

540 U=U+1:IF U>11 THEN U=6 
550 VDF' (7) =U 

560 IF TIME>4000 THEN 980 

570 ÜN SF'RITE SDSUB 810 

580 LINE(120,40)-(130,25) ,11 ,BF 

590 LINE(70,20)-(60,5) ,11,BF 

600 LINE(170,17)-(180,2) ,11 ,BF 

610 IF D=3 THEN X=X+3 

620 IF D=7 THEN X=X-3 

630 F'UTSPRITE 3 ,(XM,YM), 1, 3 

640 F'UTSPRITE 1 , <X,145), 1, 1 

650 F'UTSPRITE 2 ,< X+19,145), 1, 2 

660 IF CA=1 THEN YC=YC+9rPUTSPRITE 4 ,( XC, YC) , 1, 4 
670 IF CA=1 AND YC>146 THEN G0SUB880 
680 SF'RITE ON 

690 LINE(120,40)-(130,25),6,BF 

700 LINE<70,20)-(60,5),6,BF 

710 LINE(170,17)-(180,2),6,BF 

720 GOTO 530 

730 YC=YM:XC=XM:YM=209 

740 IF T=0 THEN 770 

750 INTERVAL OFF 

760 CA=1 

770 T=1 

780 C0=INT(RND(1)#3)+1 
790 XM=X(CO) sYM=Y<C0) 

800 RETURN 

810 IF YC>100 THEN VI=VI+1 ELSE 840 
820 LINE<50,175)-(80,183),1,BF 
830 F'SET (50,176) , 1 : F'R I NT# 1 , VI 
840 YC=209:CA=0 


850 F'UTSPRITE 4 ,< XC, YC) , 1, 4 

860 INTERVAL ON 

870 SF RITE OFF:RETURN 

880 F'LA Y " 1230m200o 1 dcC " 

890 CIRCLE(XC+8,YC+7) ,8,6 
900 F'AINT (XC+8 , YC+8) ,6 
910 FOR 1=1 TO 25:NEXT 
920 CIRCLE(XC+8,YC+7) ,8,15 
930 F'AINT (XC+8 , YC+8) , 15 
940 CA=0 


950 YC=209:INTERVAL ON:RETURN 

960 DAT A60,F8,DO,88,50,20,78,74,7B,27,70,70,50,50,50,68,0,0,0,0,0,0,1F,FO,10,1( 
FO , 1F ,0 ,0,0,0 ,0 ,0,0,0,0 ,0 ,F8 ,F ,8,8 ,F ,F8,0,0,0,0,6 , IF ,B , 11 ,A,4,1E,2E,DE,E4,E,E,F 
A,A,16,9,5,3,2,C4,25,12,9,7,3,3,3,1,0,0,0,20,40 

970 DATA80 ,80,46,48,90 ,20 ,C0,80,80,80,0,0,0,0,0 ,D ,3,4 ,5 ,2,1 ,47 ,AB , 11 ,1 ,3 ,7,8,5 

,80,40,80,40,46,88,10,EO,CO,80,80,CO,EO,1O,A,4 

980 COLOR 1,14 

990 SCREEN 1:KEY OFF 


1000 LOCATE 3,4 :F'RINT "TU MISION HA TERMINADO" 

1010 LOCATE 1 ,8 : F'R I NT "HAS LOGRADO SALVAR";VI;"VIDAS" 
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1020 LOCATE 1,14:PRINT "OTRA PARTIDA SI O NO CS/NI" 
1030 X$=INKEY$ 


1040 IF X$="S" OR X$="s" THEN OLEAR:GOTO ISO 
1050 IF X$="n" OR X$="N" THEN END 
1060 GOTO 1030 



MEMORY-TEST 


10 


20 

' #### 


30 

'####MEMORY-TEST#### 

40 


#### 

50 


60 

/ 


70 

'EUGENIO GARRIDO GOMEZ 

80 

/ 


90 

/ 

1986 


100 '################### 

110 ' 

120 COLOR 3,6,10 

130 SCREEN 3 

140 OPEN"GRP:"AS#1 

150 PSET(35,30),6:PRINT#1,"MEMORY" 

160 PSET(60,90) ,6 :PRINT#1,"TEST" 

170 FOR Y=1 TO 1500:NEXT 
180 CLOSE 

190 COLOR 15,12,12:SCREEN 2 
200 Al=l:B1=1:C1=1:D1 = 1:E1=1 
210 OPEN "GRP:"AS#1 

220 PSET(80,10),10:PRINT#1,"MEMORY-TEST" 

230 PSET(81,10), 10:PRINT#1,"MEMORY-TEST" 

240 PSET(45,30),10:PRINT#1,"COMPRUEBA TU MEMORIA" 
250 PSET(46,30),10:PRINT#1,"COMPRUEBA TU MEMORIA" 
260 DEFFN X=INT(RND(-TIME)*8)+1 
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270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 

470 

480 

490 

500 

fío 

520 

530 

540 

550 

560 

570 

580 

590 

600 

610 

620 

630 

640 

650 

660 

670 

680 

690 

700 

710 

720 

730 

740 

750 

760 

770 

780 

790 

800 

810 

820 

830 

840 

850 

860 

870 

880 

890 


FORN-1 TG10 
F'LAY " AB" 

A=FN X:B=FNX:C=FNX:D=FNX:E=FNX 
GQSUB310 ¡¡NEXTN :60T0 470 
CIROLE (40,100) ,10 , A 
F’AINT (40,100),A 
PSET (30,98),A:PRINT#1,A 
CIRCLE (80,100),10,B 
PAINT (80,100) ,B 
PSET (70,98),B:PRINT#1,B 
CIRCLE (120,100),1O,C 
PAINT (120,100),C 
PSET (110,98),C:PRINT#1,C 
CIRCLE (160,100),10,D 
PAINT (160,100),D 
PSET (150,98) , D : F'R I NT# 1 , D 
CIRCLE (200,100),10,E 
PAINT (200,100),E 
PSET (190,98) ,E:PRINT#1,E 
RETURN 

NF$=STR$(A)+STR$(B)+STR¡$(C)+STRT(D)+STR$(E) 

FOR N=0 TO 20 :BEEF':NEXTN 
GDSUB 770:G0SUB 830 
PSET (20,150) :F'RINT#1 ," INTRODUCE 
PSET (21,150):PRINT#1,"INTRODUCE 
LINE (48,178)-(95,190),6,BF 
NPT="":FOR N=0 TO 4 
F$=INKÉY$ 

IF F$=""THEN 540 
IF ASC(F$)=8 THEN 500 
IF F$ <"O"ORF# >"9"THEN 540 
PSET (50+(N*8),180),6:PRINT#1,F$ 

NF'$=NPí+" "+FÍ 
NEXT N 

IF NF*=NP$ THEN 730 
GOSUB 770:GOSUB 310 
LINE (20,148)-(236,158),12,BF 
PSET (20,150) :PRINT#1 , "TU MEMORIA HA FALLADO" 

PSET (21,150):PRINT#1,"TU MEMORIA HA FALLADO" 

FOR N=1 TO 1000:NEXT 
LINE (0,148)—(255,158),12,BF 
PSET (0,150) :F'RINT# 1 , "QUIERES 
PSET (1,150) : F'RI NT# 1 , "QUIERES 
IF INKEY$="S" THEN RUN 190 
IF INKEY$="N" THEN STOP 
GOTO 700 

<0,148)—(255,158),12,BF 

(O,150):PRINT#1,"ENHORA BUENA ACERTASTE":PLA Y 
(1,150) SPRINT#1 , "ENHORA BUENA ACERTASTE" 


CODIGO 

CODIGO 


DE 

DE 


COLORES" 

COLORES" 


VOLVER 

VOLVER 


INTENTARLO(S/N)" 
INTENTARLO(S/N)" 


LINE 
PSET 
PSET 

GOTO 660 
SWAP A,Al 
SWAP B,B1 
SWAP C,C1 
SWAP D,D1 
SWAP E,E1 
RETURN 

CIRCLE (40,100),10,A 
PAINT (40,100) ,A 
CIRCLE (80,100),1O,B 
PAINT (80,100) ,B 
CIRCLE (120,100),1O,C 
PAINT (120,100),C 
CIRCLE (160,100) ,10,D 


1 ABCABCCD" 
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900 

RAI NT 

(160, 

100) ,D 

910 

CIR'CLE 

(200 

,100) , 

920 

RAI NT 

(200, 

100) ,E 

930 

RETURN 





PROGRAMA PISTA 


10 

/ 


PROGRAMA 


20 

/ 

$$$$$$ 



30 

/ 


PISTA 

##### 

40 

' 




50 

/ 

## LUIS 

SANGUINO 

1986 

60 

/ 




70 

COLOR 15, 

5,1:KEY OFF 


80 SCREEN 3,3 
90 OPEN "grp:"AS #1 

100 PRESET (50,5),1:PRINT#1,"PISTA" 

110 FOR I=0 TO 31 : READ A 
i20 VPOKE(14336+I),A 
130 NEXT 

140 DATAO,31,0,128,195,199,253,118,29,7,3,1,33,31,0,0,0,255,64,64,24 

,97,254,252,32,33,254 ,0,0 

150 FOR 1=0 TG 13:READ SrSOUND 1,S:NEXT 

160 DATAS,5,0,1,24,0,9,3,2,2,16,90,2,12 

170 VPOKE 6912,100 

180 VPOKE 6913,100 

190 VPOKE 6914,0 

200 VPOKE 6915,1 

210 LINE(0,160)—(255,192),10,BF 

220 FOR 1=1 TO 2500:NEXT 

230 GLOSE 

240 SCREEN 1 
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250 COLOR 1,7,6 

260 LOCATE 1,6:PRINT"F'ULSA O PARA TECLADO" 

270 LOCATE 1,8:PRINT" 1 PARA JOYSTICK-1" 

280 LOCATE 1,10:F'RINT" 2 PARA JOYSTICK-2"; 

290 INPUT JT 

300 IF JT>2 OR JT<0 THEN 290 

310 COLOR 15,1,1 

320 SCREEN 2,2,1 

330 RESTORE 140 

340 FOR 1=0 TO 31:READ A 

350 VF'OKE <14336+1) ,A :NEXT 

360 OF'EN "grp : "AS #1 

370 Z=RND(-TIME) 

380 DIM A <40) 

390 N=RND(-TIME) 

400 FOR EX=1 TO 255 
410 EY=20+INT(RND(1)*170) 

420 PSET(EX,EY) ,INT(RND(1)* 15) 

430 NEXT 

440 CIRCLE(30,40),10,14 

450 F'AINT (30,40) ,14 

460 CIRCLE(35,40) ,10,1 

470 PAINT(35,40),1 

480 LINE(60,0)-(190,12) ,5,BF 

490 PSET (66,2) ,5 :F'RINT#1 , "ATERRIZA JES=" ;AT 

500 FOR 1 = 1 TO 500 sNEXT 

510 LINE (0,180)—(255,192),12,BF 

520 XP=I NT(RND(1)* 240) 

•530 LINE (XP , 180) - ( XF'+25,185) ,11,BF 

540 XH=0:YH=20 

550 XH=XH+8 

560 XH=XHMOD(256) 

570 PUT SPRITE O,(XH,YH),15,0 

580 IF POINT(XH+8,YH+15)=11 THEN AT=AT+1 :GOTO 480 
590 GOSUB 620 

600 IF P0INT(XH+2,YH+15)=12 THEN 660 
610 GOTO 550 
620 D=STICK(JT) 

630 IF D=5 THEN YH=YH+2 

640 IF D=1 THEN YH=YH-2 

650 RETURN 
660 SCREEN 1 

670 LOCATE 6,7:PRINT " LO SIENTO" 

680 LOCATE 5,1OsPRINT "TE HAS ESTRELLADO" 

690 LOCATE O,15sPRINT "HAS CONSEGUIDO";AT ; "ATERRIZAJES" 
700 LOCATE i,20:PRINT "LO INTENTAS DE NUEVO CS/NI" 

710 A*=INKEY* 

720 IF A$="S" OR Aí="s" THEN CLEAR :GOTO 10 

730 IF A$="n" OR A$="N" THEN CLS:END 

740 GOTO 710 



1986 ■ AMIGOS DEL MSX ■ 21 













ATAQUE 





10 ' ###########*####### 
20 ' #### #### 

30 '***♦ ATAQUE #### 

40 '#*#* #### 


50 '**#«#***#*#####$### 

60 ' 

70 'LUIS SANGUINO ARIAS 
80 ' 

orí ' 10RA 





100 '###*############### 

110 ' 

120 COLOR 2,14,1 

130 SCREEN 3 




l*l»u uí-clín bhr: Hüffi 

150 PSET(40,80),14sPRINT#1,ATAQUE" 

160 FOR Y = 1 TO 1500 sNEXT 

170 CLOSE 

180 COLOR 1,14 



190 SCREEN 1 

200 LOCATE 3,10:PRINT"JOTSTICK 1 
210 X*=INKEY* 

D CURSORí J/C}" 



220 1 = 1 + 1 :IFI>13 THEN 1=1 
230 VDP(7)=I 

240 IF Xf="J"0R X$="j" THEN CT=1:G0T0270 
250 IF X$="c"0R X$="C" THEN CT=0:G0T0270 
260 GOTO 210 
270 COLOR 1,1,1 

280 SCREEN 2, 2 :FOR K=1 TO 6 :B$="":F0RI=1T0 32 :READ Aí :BÍ=Bf+CHR$ (VAL ("?<H"+A'i 

) ) :NEXT rSF'RITEÍ <K)=B*:NEXT 

290 LINE(O,18)-(255,O),10,BF 

300 OREN "grp:"AS #1 

310 EN=1500 

320 PSET (5,5) , 10 :F'RINT#1 , "ENERGIA=" ;EN 
330 PSET(155,5),10:PRINT#1,"PUNTOS=";PT 
340 Z=RND(-TIME) 

350 LINE(0,19)-(255,192),1,BF 
360 N=RND(-TIME) 

370 FOR EX=1 TO 255 STEP 2 
380 FF=(FF+1)MOD(15) 

390 EY=20+INT(RND(1)#170) 
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400 F'SET (EX ,EY ) ,FF 
410 NEXT 

420 X = 120 s Y = 100:A=1: X1 = 128:Y 1=30:Z = 1:Z1 = 1 

430 PUTSPRITE 5 , <55,170) ,10,5 

440 PUTSPRITE 6,<125,170) , 10,5 

450 PUTSPRITE 7,(200,170),10,5 

460 INTERVAL 0N.-0N INTERVAL=20 GOSUB 720 

470 IF Y1>60 THEN A=2 sIF Yl>100 THEN A=3 

480 Y1=Y1+Z:IF Yl>150 THEN Z=~l 

490 IF Y1>140 THEN GOSUB 590 

500 X1=(X1+Z1)MOD(255) 

510 PUTSPRITE 3,(XI,Y1),3,A 
520 PUTSPRITE 4, (X, Y), 15,4 
530 IF EN<0 THEN 900 
540 GOSUB 770 

550 IF STRIG(CT)=—1 THEN GOSUB 690 
560 GOTO 470 
570 y 
580 ' 

590 LINE < X1+8,Y1+8)-(X1+8,180) ,13:BEEP 
600 IF Z=0 THEN 620 

610 INTERVAL 0FFsZ=0:IF Xl>128 THEN Zl=-1 ELSE Z1=1 

620 IF R1=0 THEN IF Xl+8>55 AND XI+8<70 THEN PUTSPRITE 5,(55,170) ,6,6 :EN=EN-200s 
Rl = l 

630 *IF R2=0 THEN IF X1+8M25 AND Xl+8<140 THEN PUTSPRITE 6,<125,170),6,6:EN=EN-2 
00:R2=1 

640 IF R3=0 THEN IF Xl+8>200 AND X1+8C216 THEN PUTSPRITE 7, (200,170) ,6,6:EN=EN-2 
00:R3=1 

650 LINE(X1+8,Y1+8) — (X1+8,180) ,1 
660 EN=EN-2 
670 GOSUB 870 
680 RETURN 

690 IF X+S>X1 AND X+8<X1+14 AND Y+B>Y1 AND Y+8<Y1 + 12 THEN A=1:Y 1=30sX1 = 128sINTER 
VAL ON:PT =PT+50:EN=EN+20sGOSUB 870 

700 EN=EN-20 

710 RETURN 

720 F=INT(RND(1)*4) 

730 G=INT<RND(1)*2) 

740 IF G=0 THEN Zl=2.5 ELSE Zl=-2.5 
750 IF F=0 THEN Z=~2.5 ELSE Z=2.5 


760 RETURN 
770 D=STICK(CT) 

780 IF D=1 THEN Y=Y-1.5 

790 IF D=2 THEN Y=Y-1:X=X+1 

800 IF D=3 THEN X=X+1.5 

810 IF D=4 THEN Y=Y+1:X=X+1 

820 IF D=5 THEN Y=Y+1.5 

830 IF D=6 THEN Y=Y+1:X=X-1 

840 IF D=7 THEN X = X~1 .5 

850 IF D=8 THEN Y=Y-lsX=X~l 

860 RETURN 

870 LINE(70,5)~(11O,13),10,BF:PSET(70,5),10:PRINT#1,EN 
880 LINE(210,5) — (250,13) ,10,BFsPSET(210,5) ,10sPRINT#l,PT 
890 RETURN 

900 COLOR 1,15,2:SCREEN 1sKEY OFF 

910 LOCATE 4,10:PRINT"LO SIENTO TU RESERVA" 

920 LOCATE 2,12sPRINT"DE ENERGIA SE HA AGOTADO" 

930 LOCATE 3,16 sPRINT "PUNTOS CONSEGUI DOS= " ;F’T 

940 DATAO ,0,0,0,0,0,3,5,5,2,6 ,C ,0,0,0,0,0 ,0,0,0,0,0 ,C0 ,AO , AO ,40,60,30,0,0,0,0,0 , 
O,Ó,0,8,7,9,9,9,6,4,8,3C,0,0,0,0,0,0,0,10,E0,90,90,90,60,20,10,3C,0,0,0,10,B,7,1 
9 ,31,35,31,19,7,6,C,18,30,30,30,F8,8,DO 

950 DATAEO,98,8C,AC,8C,98,EO,60,30,18,C,C,C,1F,O,O,O,3,4,8,10,10,1F,10,10,8,4,3, 
O,O,O,O,O,EO,90,88,84,84,FC,84,84,88,90,EO,0,0,1,3,3,3F,24,13,15,9,4,2,3,5,9,9,1 
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2,3E , 80,C0,CO,FC,24,C8,A8,90,20,40,CO,AO,90,90,48,7C 



CAÑON 


10 7 

20 7 #### #### 

30 7 #### CAÑON #### 

40 7 **** *### 

50 7 ###############*## 

60 7 

70 'LUIS SANGUINO ARIAS 
80 7 

90 7 1986 

100 7 
110 7 

120 COLOR 11,1,2 
130 SCREEN 2,3 
140 OPEN n GRP:"AS#1 
150 GOSUB 320 
160 G=1 

170 PUTSPRITE 1 ,(100,110), 6, 1 

180 PUTSPRITE 2,(100,20),15,2 

190 PSET(25,180) ,1:PRINT#1,"LUIS SANGUINO ARIAS - 1986" 

200 FOR 1 = 1 TO 1600 sNEXT 

210 CLOSE 

220 RESTORE 

230 COLOR 1,14,1 

240 SCREEN 1 

250 LOCATE 2,10 sPRINT 1 'JOYSTICK O CURSOR [J/CD" 

260 X$=INKEYS 
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270 IF X$=".J"0R Xí="j" THEN CT=1 :G0T0 300 
280 IF X$="c"0R X$="C" THEN CT=0:G0T0 300 
290 GOTO 260 
300 COLOR 15,5,1 
310 SCREEN 2, 2 

320 FOR K=1 TO 3 :Bf=" " :F0RI = 1T0 32 :READ Aí :B$=B$+CHRf (VAL ( "S<H"+A$) ) :NEXT :SF'RIT 

E* (K)=B$:NEXT 

330 IF G=0 THEN RETURN 

340 OPEN"GRPs"ASI 


350 X=125:Y=173:RX=0:RY=-20:LX=250:LY=-20:CX=125:CY=- 

360 LINE (0,170)-(255,192),11,BF 

370 LINE (O,180)-(70,192),1,BF 

380 PSET (1,182) ,1 :F'RINT#1 ,"F'TS=" ;F'T 

390 D=STICK(CT) 


:0 :BX = 133 :BY=200 


400 IF D=3 THEN X=X+6 
410 IF D=7 THEN X=X-6 
420 IF X>240 THEN X=240 
430 IF X<0 THEN X=0 
440 IF BY<—5 THEN FG=0 
450 IF FG=1 THEN 470 

460 IF STRIG(CT)=—1 THEN FG=1:BX=X+6:BY=Y-5 


470 RX=RX+3:RY=RY+6:LX=LX-3:LY=LY+6:CX=CX+5:CY=CY+6 

480 IF FG=1 THEN BY=BY-9 

490 SF'RITE ON 

500 IF CX>255 THEN CX=0 

510 IF RX>255 THEN RX=0 

520 IF LX<—15 THEN LX=255 

530 IF CY>200 THEN CY=0 

540 IF RY>200 THEN RY=0 

550 IF LY>200 THEN LY=0 

560 PUTSF'RITE 1 ,(X,Y), 6, 1 

570 PUTSF'RITE 2, (RX ,RY> ,15,2 

580 PUTSF'RITE 3 , (LX ,LY) ,4 ,2 

590 PUTSF'RITE 4 , (CX ,CY ) , 1 ,2 

600 PUTSF'RITE 5 , (BX ,BY) , 1 ,3 

610 ON SF'RITE GOSUB 640:SF'RITE DFF 

620 GOTO 390 

630 DATA1,1,1,1,3,7,7,4,34,36,35,30,34,34,7,1,C0,40,40,40,60,70,70,10,96,B6,06,9 
E ,96 ,96 ,FO ,CO ,C ,7,81 ,41 ,62 ,32,3A , IF , IF ,F ,3,3,3,1 ,1,1 ,60 ,C0 ,2,4 ,8C ,98 ,B8 ,F0 ,F0 ,E0 
,80,80,80,O,O,O,1O,38,7c,38,1O,O,O,O,O,O,O,O,O,O,O,O,O,O,O,O,O,O,O,O,O,O,O,O,O,O 
,0,0 


640 SF'RITE OFF 

650 IF BX+5>CX AND BXCCX+15 AND BYCCY+16 AND FG=1 THEN CY=0:FG=0:BY=200:GOTO 720 

660 IF BX+5>LX AND BXCLX+15 AND BYCLY+16 AND FG=1 THEN LY=0:FG=0:BY=200:GOTO 720 

670 IF BX+5>RX AND BXCRX+15 AND BYCRY+16 AND FG=1 THEN RY=0:FG=Ü:BY=200:GOTO 720 

680 IF CX+15>X AND CX<X+15 AND CY+16>180 THEN GOTO 770 

690 IF RX +15>X AND RXCX + 15 AND RY+16M80 THEN GOTO 770 

700 IF LX + 15>X AND LXCX+15 AND LY+16M80 THEN GOTO 770 

710 GOTO 760 


720 F'T=PT+50 


730 LINE(30,180)-(70,192),1,BF 
740 F'SET (26,182) ,1 :F'RINT#1 ,F'T 

750 SOUND 6,15:SOUND 7,7:S0UND 8,16:S0UND 9,16:S0UND 10,16:S0UND 11,0 :SOUND 12, 
16:SOUND 13,0 
760 RETURN 

770 COLOR 1,10,1:SCREEN1 

780 LOCATE 0,10 :F'RINT"LO SIENTO HAS SIDO DESTRUIDO" 

790 LOCATE 1 ,13 :F'RINT"LO INTENTAS DE NUEVO CS/ND" 

800 X$=INKEY$ 

810 IF X$="S" OR Xí="s" THEN CLEAR:G=1:60T0 230 
820 IF X*="n" OR XÍ="N" THEN END 
830 GOTO 800 
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PANZER 


ÍO ' #############•###### 

20 7 #### #### 

30 7 #### PANZER ##*# 

40 7 #### #### 

5=¡0 ' ################### 

60 7 

70 7 EUGENIO GARRIDO GOMEZ 

80 7 

90 ' 1986 

100 7 ################### 
lío 7 

120 COLOR 3,6,10 

130 SCREEN 3 

140 OREN"GRP:"AS#1 

150 PSET(5,80) ,6 :PRINT#1 ," PANZER" 

160 FOR Y = 1 TO ISOOsNEXT 

170 CLOSE 

180 COLOR 1,14 

190 SCREEN lsKEY OFF 

200 LOCATE 3,10sPRINT"JOTSTICK O CURSORCJ/C3" 

210 X*=INKEY* 

220 1=1+1:IFI>13 THEN 1=1 
230 VDP(7)=1 

240 IF X*="J"OR X*="j" THEN CT=1:G0T0270 
250 IF X$="c"OR X*="C" THEN CT=0:G0T0270 
260 GOTO 210 
270 COLOR 1,10,1 
280 OPEN"GRP:"AS#1 

290 SCREEN 2, 2 sFOR K=1 TO 5 :B*=" " :F0RI = 1T0 32 :READ A$: B$ =B$+CHR$ (VAL ( " &H" + A$ 


)) :NEXT:SPRITE$ <K>=B*:NEXT 

300 C$="":C*=CHR$<240> 

310 SPRITE*(6)=C* 

320 Y=90 :R=2:XE=256:Y2=10 



330 ON SPRITE GOSUB 680 

340 7 

350 7 




36 U 7 

370 Y2=Y2+R:E=E+1 

380 IF E>=K THEN E=0:K=INT(RND(1)*50) :R=-R 
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390 IF Y2<=0 THEN :Y2=Y2+4:R=~R 
400 IF Y2>= 185 THEN Y2=Y2~4 :-R=~R 
410 IF Y<0 THEN Y=0 
420 PUTSPRITE 1 ,(17,Y), 1, 1 

430 PUTSPRITE 2 ,<220,Y2>, 4, 2 
440 'PUTSPR'ITE 3 ,(50,42),12, 3 
450 GOSUB 560 

460 PUTSPRITE 4 ,( 50,132),12, 4 
470 PUTSPRITE 5 ,(150,92) ,12, 4 
480 PUTSPRITE 6,(183,160),12, 4 
490 PUTSPRITE 7 , (80,10) ,12, 4 
500 PUT SPRITE8,(XB,YB),6,3 
510 PUT SPRITE9,(XE,YE),6,5 
520 GOTO 370 
530 ' 

540 ' 



550 


560 D=STICK(CT) 

570 IF D=1 THEN Y=(Y-2)MGD 192 
580 IF D=5 THEN Y=(Y+2)M0D 192 

590 IF Y2>=Y-2 AND Y2CY+2 AND DE=0 THEN GGSUB 760 

600 IF XB>256 THEN GOSUB 700 

610 IF XE<0 THEN GOSUB 700 

620 IF DE=1 THEN XE=XE-10 

630 IF DI=1 THEN XB=XB+9:G0T0 650 

640 IF STRIG(CT)=-l THEN BEEP :SPRITE ON:GOSUB 660 
650 RETURN 

660. YB=Y+3:XB=37:DI=1 
670 RETURN 

680 IF XB>200 THEN PU=PU+50 

690 IF XE<40 THEN 790 

700 IF DI=1 THEN YB=209:DI=0:XB=-10 

710 IF DE—1 THEN YE=209sDE=0sXE=256 

720 LINE(75,180)-(200,192),10,BF 

730 SPRITE OFF 

740 PSET (80,180) ,10: PRI NT# 1 , 11 PUNT0S= " ; PU 
750 RETURN 

760 DE=1:XE=210:YE=Y2+3 
770 SPRITE ON 
780 RETURN 

790 COLOR 15,13,1--SCREEN 1 
800 LOCATE 9,10:PRINT"R.I.P" 

810 LOCATE 6,15:PRINT"PUNTOS=";PU 
820 LOCATE 4,20:PRINT"OTRA PARTIDA S/N M 
830 INKEY* 

840 IF Xí= ,, S M OR X*="s M THEN CLEAR :GOTO 10 
850 IF X^'n" OR X^= n N“ THEN END 
860 GOTO 830 

40000 DATAO ,0,0,20,10,B,1E,3F,IF,4,3F,6A,9F,92,72,3F,0,0,0,0,0,80,EO,FF,EO,80,FE 
,A9,F9,4E,4C,F8 
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SARATOGA 


10 7 #########**####*### 

20 7 #### #### 

30 7 ###* SARATOGA #### 

40 7 #### #### 

50 7 ################### 

60 7 

70 7 EUGENIO GARRIDO GOMEZ 
80 7 

90 7 1986 

100 7 ################### 

110 7 

120 COLOR 3,6,10 

130 SCREEN 3 

140 OREN"GRP:"AS#1 

150 PSET(10,80) ,6 s PRINT#1,"SARATOGA" 

160 FOR Y= 1 TO 1500 sNEXT 
170 CLOSE 
180 COLOR 1,14 
190 SCREEN 1 

200 LOCATE 3,10 SPRINT"JOTSTICK O CURSORCJ/C)" 

210 X*=INKEY* 

220 1=1+1sIFI>13 THEN 1=1 
230 VDP<7)=I 

240 IF Xt="J"OR X$="j" THEN CT=1 :G0T0270 
250 IF X$="c"OR X$="C" THEN CT=0sG0T0270 
260 GOTO 210 

270 COLOR 15,7,1sSCREEN 2,2: 

280 GOSUB 540:PX = 117:PY =125 

290 P0=PX+16:PP=PX+32:BY=209 

300 ON SPRITE GOSUB 410:SPRITE ON 

310 PUTSPRITE 2,(PP,PY), 1, 2:PUTSPRITE 1,(PO,PY) ,1,1:PUTSPRITE O,(PX ,PY) ,1 ,0 

320 PUT SPRITE3,(AX,0),1,3 

330 PUT SPRITE4,(BX,BY),6,4 

340 PX=PX+1¡AX=AX-5 

350 P0=PX+16:PP=PX+32 

360 A=STRI6(CT):IFA=-1 ANDT1=0 THEN DI=1:BY=8:T1=1 




28 ■ AMIGOS DEL MSX ■ 1986 


JUUUUUUkJkJl 
























370 IF El 1 = 1 THEN BY=BY+4 

380 IF BY>160 THEN DI=0:BX=AX:BY=209:T1=0 
390 IF AX<-32 THEN AX=255 
400 BOTO 310 

410 IF BY>120 AND BX>PX + 10AND BXCPX+40 THEN GOTO 430 
420 RETURN 

430 FOR N=1 TO 30STEF' 2 :CIRCLE (PO ,PY) ,N :NEXT 

440 F'UTSPRITE 2,(PP+4,PY-1), 1, 2:PUTSPRITE 1 , (PO-3 ,F'Y-10) , 1 ,1 :PUTSPRITE 0,<PX-5 
,PY+3) ,1 ,0 


450 FOR N=2 TO 30STEP 2:CIRCLE(PO,PY),N,6:NEXT 
460 OPEN "GRPAS#1:COLOR 1 

470 PSET (20,20):PRINT#1ENHORA BUENA HAS HUNDIDO " 

480 PSET (21,20):PRINT#1ENHORA BUENA HAS HUNDIDO " 

490 PSET (60,35):PRINT#1,"EL SARATOGA 
500 PSET (61,35):PRINT#1,"EL SARATOGA 
510 PSET (20,50)SPRINT#1,"GADAFI TE LO AGRADECERA" 

520 PSET (21,50):PRINT#1,"GADAFI TE LO AGRADECERA" 

530 FOR N=1 TO 5000:NEXT:RUN 

540 FOR K=0 TO 4 :B$=" " :F0RI = 1T0 32 :READ A$ :Bí=B$+CHR$ (VAL ( "8<H"+A$) ) :NEXT ¡SPRIT 


E$ <K)=6$:NEXT 

550 LINE (O,140)-(255,192),4,BF 
560 RETURN 

570 DATAO,O,O, O , O , O , O , O , FF ,31,1 F , F ,7,3,7,0,0,0,0,0,0,0,0,0,FF,89,8F,FF,FF,FF,FF, 
0,0,1 ,7,1 ,3,3,0,0 ,FF ,98 ,F9 ,FF ,FF ,FF ,FF ,0 ,F8 ,FC ,6 ,AC ,8F ,FA ,F8 ,A8 ,FF ,6B ,6B ,E3 ,FF ,F 
F ,FF ,0,0,0,0,0,0,0,0,0 ,FF ,92 ,FF ,DB ,FF ,FF ,FF ,0,0,0 
580 DATAO,0,0,0,0,0 ,FC ,10,30,E0,E0,C0 ,C0,0 

590 DATA 0,0,0,0 , IF ,82 ,5 ,BF ,FF ,BF ,C ,88,30 ,30,0,0 ,0 ,0 ,0,0 ,F0,83,87 ,EF ,FF ,FE ,4,2,0 


, 0 , 0,0 


600 DATA1 ,0,1 ,7,6,6,6,6,3,1 ,1 ,1 ,1 ,1 ,0,0 ,C0,80 ,C0 ,F0 ,B0 ,B0 ,B0 ,B0 ,E0 ,40,40,40 ,C0 ,C 
O , 80 ,80 



SALTO 


10 7 $$$$$#$$$$$*$$$*##* 
20 7 #### #### 
30 7 ###* SALTO #### 

40 7 #### 

50 ' # # # # # # # # # # ### íjnjf # # # # 

60 7 

70 'LUIS SANGUINO ARIAS 
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80 7 

90 7 1986 

100 7 
110 7 

120 OLEAR:COLOR 3,6,10 

130 SCREEN 3 

140 OPEN"GRP:"AS#1 

150 PSET(55,80),6:PRINT#1,"SALTO" 

160 FÜR Y= 1 TO 1500:NEXT 
170 CLOSE 

180 COLOR 1 ,2,13:SCREEN 2,2,1 

190 DRAW"C15BM0,25F65R29F1D85R162U1BNO,19C7R2E8R14F28R5E24F5E6F11U8E7F39D9F9E39F 
6U1E6R1D5U1E8D2F8U1E7F23D12U13" 

200 PAINT (1,1),7 
210 PAINT (1,191),15 

220 B$= ,,n :FOR K=1 TO 3 :B*=" " :F0RI=1T0 32 :READ A* :B*=B$+CHR* (VAL ("&H"+AS) ) :NEXT 
:SPRITE-£ (K)=B*:NEXT 
230 OPEN"GRP:"AS#1 
240 G=.05 

250 SOUND 6,15:S0UND 7,7:S0ÜND 8,16:S0UND 9,16:S0UND 10,16:SOUND 11,0 sSOUND 12, 

16:SOUND 13,0 

260 ON STRIG GOSUB 370 

270 X=0: Y=3:A=2:B=3 

280 Y = Y +1 

290 STRIG(O) ON 

300 X = X+1 

310 PUTSPRITE 1 , (X , Y) , 1, 1 

320 PUTSPRITE 2 ,(X,Y+í6),1,A 
330 IF X >95 THEN Y=(Y+(1/G)) 

340 IF Y>155 THEN 400 

350 IF Y>60 THEN A=B:GOTO 300 

360 GOTO 280 

370 STRIG(O) OFF 

380 G=G+ . 1 

390 RETURN 

400 J=J+1 

410 A(J)=X 

420 IF‘A(J)>JJ THEN JJ=A(J) 

430 LINE (60,0)^(200,10),15,BF 

440 PSET(66,3) ,15 SPRINT#1/'ULTIMO SALTO=";X 

450 FOR 1 = 1 TO 100 sBEEP:NEXT 

460 LINE (60,O)-(200,10),15,BF 

470 PSET(70,3) ,7:PRINT#1/'MEJOR SALTO=";JJ 

480 FOR 1 = 1 TO 1000 sNEXT 

490 IF J>4 THEN 510 

500 GOTO 240 

510 COLOR 1,15,6 

520 SCREEN 1sKEY OFF 

530 LOCATE 7,10 SPRINT"TU MEJOR SALTO" 

540 LOCATE 5,13sPRINT"HA SIDO=";JJ/'METROS" 

550 LOCATE 1,20 sPRINT"OTRA PARTIDA SI O NO CS/N3" 

560 X*=INKEY* 

570 IF X$="S" OR X$="s"THEN RUN 

580 IF X$= n n" OR X$="N"THEN CLS:SCREEN OsEND 

590 GOTO 560 

600 DATAO,1,3,3,3,1,3,7,7,7,7,7,3,3,7,7,80,CO,CO,EO,CO,80,80,CO,CO,CO,EO,BO,98,c 
,84,88 ,7,7,1 ,0,21,12,8,5,3,1,0,0,0,0,0,0,90,E0,E0,F0,30,60,C0,80,80,80,80,40,20, 
10,C ,0 

610 DATA7,7,3,3,3,3,6,6,C,C,1C,1E,FF,O,0,0,88,88,8,8,8,8,8,8,1C,8,0,4,F8,0,0,0 
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RUTA-X 


10 7 ################### 

20 7 #### #### 

30 '*#** RUTA-X #*## 

40 7 ###$ #### 

50 7 ##*$###*########### 

60 7 

70 7 LUIS SANGUINO ARIAS 
SO 7 

90 7 1986 

100 7 ######*########### 

110 7 

120 COLOR 1,4,6 
130 SCREEN 1 ,3 sKEY OFF 
140 GOSUB 370 
150 G=1:A=1 

160 RUT SPRITE 4,<83,82),1,4 
170 LOCATE 13,12 sPRINT"RUTA-X M 

180 LOCATE 2,22 SPRINT"LUIS SANGUINO ARIAS - 1986" 

190 FOR 1= 1 TO 500sA=A+1sCOLOR A-l ,A+1,A 
200 IF A >13 THEN A=1 
210 NEXT 

220 PUT SPRITE 4,(83,209) , 1 ,4 
230 CLS 

240 COLOR 1,14 

250 LOCATE 3,10 SPRINT"JOYSTICK O CURSOR ÍJ/C1 " 

260 X$=INKEYS 

270 IF X$=" j “ OR X$= M J" THEN CT=1 sGOTO 330 
280 IF X*="C" OR X$="c" THEN CT=0sGOTO 330 
290 R=R+1 

300 IF R>14 THEN R=1 
310 VDP(7)=R 
320 GOTO 260 
330 OPEN"GRP:"AS 1 
340 COLOR 10,10,1 
350 SCREEN 2,2 
360 RESTORE 

370 FOR K= 1 TO 4 :B$=" " :F0RI=1T0 32 :READ A$ :B$=B$+j|HR$ (VAL ("&H"+A$) ) 

E* (K)=B$ sNEXT 

380 IF G=0 THEN RETURN 


sNEXT:SPRIT 
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390 B$="":F0R 1 = 1 T0 3 :READ A :B$=B$+CHR$ (A) :NEXT rSF'RITE* (6) =B$ 

400 LINE (O,67)-(255,125) ,4 , BF 
410 LINE (O,182)-(90,192),1,BF 
420 F'SET (1 ,184) , 1 : PRI NT# 1 , "PUNTOS= " ; F'T 
430 TIME =0 

440 ON SF'RITE GOSUB 700 
450 X=255 

460 R-R+8:IEX=IEX-10:SEX=SEX-8 
470 IF TI ME >4000 THEN 8<X> 

480 TY=87:GS=209-tC 1=209 

490 BX=BX+7 :SY=SY-K 

500 LINE <X-R,94)-(X—30-R,98),10,BF 

510 IF X-RC-6THEN R=0:60T0 450 

520 SF'RITE GN 

530 LINE (X-l-R,94)-(X+6—R,98),4,BF 
540 D=STICK(CT)- 

550 IF D=1 THEN TY=209:CS=87tPUT SPRITE4,(36,TY> 

560 IF D=5 THEN TY=209:CI=87 sPÜJ SPRITE4,(36,TY) 

570 PUTSPRITE 3 ,11EX, 150) ,6, 3 

580 PUTSPRITE 1 ,(36,CS), 1, 1 

590 PUTSPRITE 5 ,(SEX , 20), 4, 3 

600 PUTSPRITE 2 ,( 36, CI) , 1, 2 

610 PUTSPRITE 4 ,( 36, TY) , 1, 4 

620 IF DS=1 THEN 660 

630 IF DI=1 THEN 660 

640 IF STRI6 (CT) =—1 AND CS=87 THEN SY=91.:BX=42 :K=7 :DS=1 

650 IF STRIG(CT)=—1 AND CI=87 THEN SY=103:BX=48:K=-7:DI=1 ELSE GOTO 690 

660 PUT SF'RITE 6 , (BX ,SY) , 1 ,6 

670 IF SY<0 THEN DS=0:DI=0 

680 IF SY>193 THEN DI=0:DS=0 

690 GOTO 460 

700 SPRI TE OFF : F'T=F'T+50 : LINE (50,182) - (90,192) ,1 , BF : F'SET (45,184) , 1 : F'RI NT# 1 , PT 

710 SQUND 6,15 sSOUND 7,7:S0UND 8,16:S0UND 9,16:S0UND 10,16:S0UND 11,0 sSOUND 

16 sSOUND 13,0 

720 IF DS=1 THEN SEX=255 

730’IF DI=1 THEN IEX=255 

740 DS=0:DI=0:S Y=209 

750 PUT SPRITE 6 , (BX ,SY) ,1,6 

760 RETURN 



800 COLOR 1,14,6 
810 SCREEN 1 

820 LOCATE 1 ,10 :F'RINT"OTRA PARTIDA SI O NO CS/N1 
830 LOCATE 1 ,4 : F'RI NT "TUS PUNTOS HAN SIDO =“ ;PT 
840 X$=INKEY$ 

B50 VDP(7)=1 

860 IF X$="S" OR X$="s" THEN CLEAR:G=1:GOTO 230 
870 IF X$="n“ OR X$="N M THEN END 
880 1=1+1 

B90 IF I>15 THEN 1=0 
900 GOTO 840 
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(91) 266 66 01 
(91) 266 66 02 


...SI TIENES 
UN MSX, 

ESTAS SON 
TUSREVISTAS 


SUSCRI¬ 
BETE 
LLAMAN 
DO A 


LOS 

TELE¬ 

FONOS 


1986 - AMIGOS DEL MSX ■ 33 

























BIBLIOGRAFIA 


Para Programadores MSX 
tu fiel compañero. 

Esto no es un libro para el 
principiante novato, al con¬ 
trario, introduce al progra¬ 
mador MSX "dentro'’ del or¬ 
denador, para mostrarle exac¬ 
tamente como funciona y co¬ 
mo obtener el máximo partido. 

Los autores han dividido 
su libro en dos partes. 

La primera parte cubre el 
diseño del sistema, como el 
vocabulario de BASIC se rela¬ 
ciona con los ordenadores 
MSX, y una introducción có¬ 
digo máquina. Encontrará ex¬ 
plicaciones detalladas sobre la 
organización de la memoria, 
los modos de pantalla y los 
circuitos de vide y sonido. 

La segunda parte se dedica 

al uso del lenguaje ensam- ..—-----_ 

blador en el sistema MSX. Los principales apartados incluyen los 
puntos: 

— El procesador de pantalla de vídeo. 

— El circuito de sonido AV-3-8910. 

— Entradas/Salidas. 

Tanto si necesitas escribir programas de alta eficacia o 
solamente quieres como trabaja tu ordenador, este libro será 
inestimable. Pensamos que rápidamente se convertirá en el 
texto base para aquellos programadores que quieren hacer 
algo más que escribir programas en BASIC. 

P.V.P. 1800 ptsl 



GUIA DEL PROGRAMADOR MSX 


CODIGO MAQUINA PRO P ^^ ION 

i KAL IICA 

La llegada de standar MSX, 
marca un paso significativo 
dentro del mundo de los or¬ 
denadores domésticos. Ofre¬ 
ce infinidad de excitantes 
oportunidades para progra¬ 
madores y usuarios. 

Este libro, supone que no 
tienes conocimientos previos 
sobre código máquina. Em- 
explicando las equivalentes 
en código máquina, de las 
principales instrucciones en 
Basic, tales como IF, FOR/ 

NEXT, PRINT, GOTO, GOSUB, 
etc... Continúa con la descrip¬ 
ción muy detallada de las ru¬ 
tinas individuales de un sim¬ 
ple juego: "INVASOR DEL 
ESPACIO", y cómo se enlazan 
estas rutinas que puedes 
aprovechar en tus programas 
en Basic. _ _ 

• Aprende lo fácil que es incorporar rutinas en código 
máquina dentro de tus programas en Basic. 

• Usa el código máquina para crear sonido y gráficos. 

• Diseña tus propios caracteres y “escenarios” con dos 
programas fáciles de usar. 

Tanto si simplemente desea incluir rutinas para acelerar y 
mejorar tus programas en Basic, como si quieres un programa 
completo y potente en código máquina, encontrarás este 
libro extremadamente útil. En él está suprimida la teoría que 
dificulta el código máquina, y se presenta de una forma 
práctica y divertida de aprenderlo. 

P.V.P. 1.200 pts. 
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